home *** CD-ROM | disk | FTP | other *** search
- *debug 1
-
- *********************************************************
- * *
- * This script file is used to configure the CODEX Modem *
- * *
- *********************************************************
-
- set_port 1
- set_speed 1200
- set_parity NO_PARITY
- set_data_bits 8
- open_comm
- iferror bye_comm
- print "Initialization successful "
-
- wait 1
-
- type "AT",0d,0a
- iferror bye_t1
- timeout 15
- match "OK"
- iferror bye_m1
-
- ***************************
- * *
- * Programming modem *
- * *
- ***************************
-
-
- **********************************
- *** Setting Modulation Options ***
- **********************************
-
- **********************************************************
- *** Setting Error Correction and Data Compression Options ***
- *************************************************************
-
- type "AT&F",0d,0a
- match "OK"
- iferror EC/DC
-
-
- **********************************************
- *** Set ACU (Automatic Call Unit) settings ***
- **********************************************
-
- type "ATL1",0d,0a
- match "OK"
- iferror ATFORM
-
-
- ****************************
- *** Set Terminal Options ***
- ****************************
-
- type "ATB",0d,0a
- match "OK"
- iferror TERMERR
-
- type "AT&C1",0d,0a
- match "OK"
- iferror TELCO
-
-
- wait 1
-
- type "AT&D2",0d,0a
- match "OK"
- iferror TELCO
-
- type "ATS0=1",0d,0a
- match "OK"
- iferror TELCO
-
-
- type "AT&M1",0d,0a
- match "OK"
- iferror TELCO
-
-
- type "AT&S1",0d,0a
- match "OK"
- iferror TELCO
-
- type "AT&W",0d,0a
- match "OK"
- iferror TELCO
-
-
- goto bye
- :TELCO
- print "TELCO ERROR"
- goto exit
- :bye_t1
- print "Error during modem programming. Type failed."
- goto exit
- :TERMERR
- print "ERROR WHILE SETTING TERMINAL OPTIONS"
- goto exit
- :EC/DC
- print "ERROR WHILE SETTING EC/DC OPTIONS"
- goto exit
- :MODERR
- print "ERROR WHILE SETTING MODULATION OPTIONS"
- goto exit
- :ATFORM
- print "ERROR WHILE SETTING ACU OPTIONS"
- goto exit
-
- :bye_m1
- print "No answer from modem."
- goto exit
-
- :bye_comm
- print "**** INIT ERROR !!"
- goto exit
-
-
-
- :bye
- print "Modem programmed successfully"
-
- :exit
-